home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / rat run.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  117 lines
  1. 10 PRINT"[147]":Z=0
  2. 56 POKE 53281,13
  3. 70 PRINT"      [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  4. 72 PRINT"      [199]      RAT-RUN         [200]"
  5. 74 PRINT"      [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  6. 76 PRINT"   BY IAN MACLAREN & JOHN LOUNSBERRY"
  7. 77 PRINT"       * JOYSTICK USE PORT 2 *"
  8. 78 PRINT" INSTRUCTIONS: RUN AS FAST AS YOU CAN TO THE OPEN DOOR !"
  9. 79 PRINT
  10. 80 PRINT" YOUR TIME IS COUNTED & WHEN YOU HIT A   OBJECT YOU LOSE (100 POINTS)!"
  11. 81 PRINT
  12. 82 PRINT"                                    [166][169] "
  13. 84 PRINT" LITTLE MOUSE TO KING RAT *  [210][198][195][209][209][209][209]  "
  14. 85 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]   [206][200][160][199] [205]"
  15. 97 PRINT" LEVEL OF DIFFICULTY (1-20) "
  16. 98 INPUTN
  17. 99 PRINT"[147]"
  18. 100 FORX=55296TO56295
  19. 110 POKEX,0:NEXTX
  20. 120 FORX=1TON*20
  21. 130 R=INT(RND(86)*999)+1024
  22. 140 C=INT(RND(86)*16)+106
  23. 145 POKER,C:NEXTX
  24. 150 FORX=1024TO1063:POKEX,102:NEXTX
  25. 155 FORX=1024TO1984STEP40:POKEX,102:NEXTX                         
  26. 160 FORX=1063TO2023STEP40:POKEX,102:NEXTX
  27. 165 FORX=1984TO2023:POKEX,102:NEXTX
  28. 170 FORX=1824TO1834:POKEX,32:NEXTX
  29. 180 FORX=1213TO1223:POKEX,32:NEXTX
  30. 200 M=1824:T=0
  31. 250 POKEM,81:POKEM+54272,1:T=T+10:Q=0
  32. 255 IFM=1223THEN2000
  33. 260 J=PEEK(56320)AND15
  34. 265 K=INT(RND(86)*15)
  35. 266 IFK=13THENGOSUB1300
  36. 267 PRINT"":T=T+5
  37. 268 PRINTT:POKE1064,102:POKE1064+54272,0
  38. 270 IFJ=14THEN350
  39. 275 IFJ=7THEN400
  40. 280 IFJ=13THEN450
  41. 285 IFJ=11THEN500
  42. 290 GOTO260
  43. 300 REM-CHECK JOYSTICK SITUATION !!
  44. 350 IFPEEK(M-40)<>32THENQ=1:GOSUB1000
  45. 360 IFQ<>0THEN390
  46. 370 POKEM,32:POKEM+54272,0
  47. 380 M=M-40
  48. 390 GOTO250
  49. 400 IFPEEK(M+1)<>32THENQ=2:GOSUB1000
  50. 410 IFQ<>0THEN390
  51. 420 POKEM,32:POKEM+54272,0
  52. 430 M=M+1
  53. 440 GOTO250
  54. 450 IFPEEK(M+40)<>32THENQ=3:GOSUB1000
  55. 460 IFQ<>0THEN390
  56. 470 POKEM,32:POKEM+54272,0
  57. 480 M=M+40
  58. 490 GOTO250
  59. 500 IFPEEK(M-1)<>32THENQ=4:GOSUB1000
  60. 510 IFQ<>0THEN390
  61. 520 POKEM,32:POKEM+54272,0
  62. 530 M=M-1
  63. 540 GOTO250
  64. 1000 ONQGOTO1010,1020,1030,1040
  65. 1010 POKEM-40+54272,2:Z=Z+1:GOTO1050
  66. 1020 POKEM+1+54272,2:Z=Z+1:GOTO1050
  67. 1030 POKEM+40+54272,2:Z=Z+1:GOTO1050
  68. 1040 POKEM-1+54272,2:Z=Z+1:GOTO1050
  69. 1050 S=54272
  70. 1060 POKES+24,15
  71. 1070 POKES+5,9
  72. 1080 POKES+1,20
  73. 1090 POKES+4,128
  74. 1100 FORD=1TO10:NEXTD
  75. 1110 POKES+4,129
  76. 1115 T=T+100
  77. 1120 RETURN
  78. 1300 P=INT(RND(86)*900)+1064
  79. 1305 IFPEEK(P)=102THEN1300
  80. 1310 POKEP,107
  81. 1320 RETURN
  82. 2000 PRINT"[147]"
  83. 2010 POKE 53281,15
  84. 2020 PRINT:PRINT
  85. 2030 PRINT"YOU COLLIDED WITH ";Z;" OBJECTS."
  86. 2040 PRINT
  87. 2050 E=4000-T:E=E*63
  88. 2060 IFT>4000THEN2100
  89. 2065 IFT>2000THEN2200
  90. 2070 IFT>1500ANDT<2000THEN2300
  91. 2075 IFT>1000ANDT<1500THEN2400
  92. 2080 IFT>700ANDT<1000THEN2500
  93. 2090 IFT>450ANDT<700THEN2600
  94. 2095 IFT<450THEN2700
  95. 2100 PRINT"YOU ARE PRETTY BAD    !!!!!"
  96. 2121 PRINT"TRY ANOTHER LEVEL (LOWER) !"
  97. 2130 GOTO3000
  98. 2200 PRINT"YOU DEFINITLEY NEED MORE PRACTICE."
  99. 2210 PRINT"WHAT WERE YOU DOING????[160][160]"
  100. 2220 GOTO3000
  101. 2300 PRINT" YOUR  AVERAGE , OK !!?"
  102. 2310 GOTO3000
  103. 2400 PRINT"YOUR ABOVE AVERAGE,TRY AGAIN!!"
  104. 2410 GOTO3000
  105. 2500 PRINT"*** GREAT   SCORE *** "
  106. 2510 GOTO3000
  107. 2600 PRINT"VERY GOOD . CONGRADULATIONS!!"
  108. 2610 GOTO3000
  109. 2700 PRINT"         EXCELLENT !!"
  110. 2710 PRINT"YOU HAVE THE MAKINGS OF A CHAMPION !!"
  111. 2720 GOTO3000
  112. 3000 PRINT
  113. 3100 PRINT"YOUR TIME WAS ";T;" MICROSECONDS."
  114. 3200 PRINT
  115. 3300 PRINT"YOUR SCORE WAS ";E
  116. 3400 END
  117.